home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 70 / MF_UK_70_1.iso / Demos / Agamik BarCoding Demo ƒ / Agamik Barcoder Demo 3.10 / Agamik Barcoder Demo 3.10.rsrc / STR#_4012.txt < prev    next >
Encoding:
Text File  |  1998-08-24  |  5.9 KB  |  401 lines
  1. %%BeginProcSet: Agamik_Barcoder 1.20 0
  2.  
  3. currentpacking true setpacking
  4.  
  5. userdict /Agamik_Barcoder 73 dict dup begin put
  6.  
  7. /initialize {
  8.  
  9. userdict /Agamik_Barcoder_vars 41 dict dup begin put
  10.  
  11. /_lp /none def
  12.  
  13. /_pf {} def
  14.  
  15. /_ps {} def
  16.  
  17. /_psf {} def
  18.  
  19. /_pss {} def
  20.  
  21. /_a null def
  22.  
  23. /_as null def
  24.  
  25. /_tt 2 array def
  26.  
  27. /_tl 2 array def
  28.  
  29. /_tm matrix def
  30.  
  31. /t {} def
  32.  
  33. /_gf null def
  34.  
  35. /_cf 4 array def
  36.  
  37. /_if null def
  38.  
  39. /_of false def
  40.  
  41. /_fc {} def
  42.  
  43. /_gs null def
  44.  
  45. /_cs 4 array def
  46.  
  47. /_is null def
  48.  
  49. /_os false def
  50.  
  51. /_sc {} def
  52.  
  53. /_pd 1 dict def
  54.  
  55. /_ed 15 dict def
  56.  
  57. /_pm matrix def
  58.  
  59. /_fm null def
  60.  
  61. /_fd null def
  62.  
  63. /_fdd null def
  64.  
  65. /_sm null def
  66.  
  67. /_sd null def
  68.  
  69. /_sdd null def
  70.  
  71. /_i null def
  72.  
  73. Agamik_Barcoder begin
  74.  
  75. Agamik_Barcoder dup /nc get begin
  76.  
  77. { dup xcheck { bind } if pop pop } forall
  78.  
  79. end end end
  80.  
  81. Agamik_Barcoder begin
  82.  
  83. Agamik_Barcoder_vars begin
  84.  
  85. newpath } def
  86.  
  87. /terminate { end end } def
  88.  
  89. /_ null def
  90.  
  91. /ddef { Agamik_Barcoder_vars 3 1 roll put } def
  92.  
  93. /xput { dup load dup length exch maxlength eq {
  94.  
  95. dup dup load dup length 2 mul dict copy def } if
  96.  
  97. load begin def end } def
  98.  
  99. /npop { { pop } repeat } def
  100.  
  101. /sw { stringwidth exch 5 -1 roll 3 index 1 sub mul add
  102.  
  103. 4 1 roll 3 1 roll 1 sub mul add } def
  104.  
  105. /ss { 3 -1 roll pop 4 1 roll {
  106.  
  107. 2 npop (0) exch 2 copy 0 exch put pop gsave false charpath
  108.  
  109. currentpoint 4 index setmatrix stroke grestore moveto
  110.  
  111. 2 copy rmoveto } exch cshow 3 npop } def
  112.  
  113. /sp { exch pop { 2 npop (0) exch 2 copy 0 exch put pop
  114.  
  115. false charpath 2 copy rmoveto } exch cshow 2 npop } def
  116.  
  117. /pl { transform 0.25 sub round 0.25 add exch
  118.  
  119. 0.25 sub round 0.25 add exch itransform } def
  120.  
  121. /setstrokeadjust where {
  122.  
  123. pop true setstrokeadjust
  124.  
  125. /c { curveto } def
  126.  
  127. /C /c load def
  128.  
  129. /v { currentpoint 6 2 roll curveto } def
  130.  
  131. /V /v load def
  132.  
  133. /y { 2 copy curveto } def
  134.  
  135. /Y /y load def
  136.  
  137. /l { lineto } def
  138.  
  139. /L /l load def
  140.  
  141. /m { moveto } def }
  142.  
  143. { /c { pl curveto } def
  144.  
  145. /C /c load def
  146.  
  147. /v { currentpoint 6 2 roll pl curveto } def
  148.  
  149. /V /v load def
  150.  
  151. /y { pl 2 copy curveto } def
  152.  
  153. /Y /y load def
  154.  
  155. /l { pl lineto } def
  156.  
  157. /L /l load def
  158.  
  159. /m { pl moveto } def
  160.  
  161. } ifelse
  162.  
  163. /d { setdash } def
  164.  
  165. /cf currentflat def
  166.  
  167. /i { dup 0 eq { pop cf } if setflat } def
  168.  
  169. /j { setlinejoin } def
  170.  
  171. /J { setlinecap } def
  172.  
  173. /M { setmiterlimit } def
  174.  
  175. /w { setlinewidth } def
  176.  
  177. /H {} def
  178.  
  179. /h { closepath } def
  180.  
  181. /N { newpath } def
  182.  
  183. /n /N load def
  184.  
  185. /F { _pf } def
  186.  
  187. /f { closepath F } def
  188.  
  189. /S { _ps } def
  190.  
  191. /s { closepath S } def
  192.  
  193. /B { gsave F grestore S } def
  194.  
  195. /b { closepath B } def
  196.  
  197. /W { clip } def
  198.  
  199. /ta { _as moveto _tt aload pop 4 -2 roll } def
  200.  
  201. /tl { _tl aload pop translate } def
  202.  
  203. /as { { 0 0 } {
  204.  
  205. 2 copy _tt aload pop 4 -2 roll sw exch neg 2 div exch neg 2 div }
  206.  
  207. { 2 copy _tt aload pop 4 -2 roll sw exch neg exch neg }
  208.  
  209. { 0 0 } } cvlit def
  210.  
  211. /z { /_a exch ddef /_as as _a get ddef _a 2 le {
  212.  
  213. 0 _tt astore pop 0 exch neg _tl astore pop }
  214.  
  215. { 0 exch neg _tt astore pop neg 0 _tl astore pop } ifelse
  216.  
  217. exch findfont exch scalefont setfont } def
  218.  
  219. /tm { _tm currentmatrix pop concat } def
  220.  
  221. /I { tm /t { ta sp tl } ddef } def
  222.  
  223. /o { tm /t { ta 4 npop tl newpath } ddef } def
  224.  
  225. /e { tm /t { ta _psf tl newpath } ddef } def
  226.  
  227. /r { tm /t { ta _tm _pss tl newpath } ddef } def
  228.  
  229. /a { tm /t { 2 copy ta _psf newpath ta _tm _pss tl newpath } ddef } def
  230.  
  231. /T { _tm setmatrix } def
  232.  
  233. /Z { pop findfont begin currentdict dup length 1 add dict begin
  234.  
  235. { 1 index /FID ne { def } { 2 npop } ifelse } forall
  236.  
  237. /FontName exch def dup length 0 ne {
  238.  
  239. /Encoding Encoding 256 array copy def
  240.  
  241. 0 exch { dup type /nametype eq
  242.  
  243. { Encoding 2 index 2 index put pop 1 add }
  244.  
  245. { exch pop } ifelse } forall } if pop
  246.  
  247. currentdict dup end end
  248.  
  249. /FontName get exch definefont pop
  250.  
  251. } def
  252.  
  253. /u {} def
  254.  
  255. /U {} def
  256.  
  257. /q { gsave } def
  258.  
  259. /Q { grestore } def
  260.  
  261. /` { /_i save ddef 6 1 roll 4 npop concat
  262.  
  263. userdict begin
  264.  
  265. /showpage {} def
  266.  
  267. 0 setgray
  268.  
  269. 0 setlinecap
  270.  
  271. 1 setlinewidth
  272.  
  273. 0 setlinejoin
  274.  
  275. 10 setmiterlimit
  276.  
  277. [] 0 setdash
  278.  
  279. /setstrokeadjust where {pop false setstrokeadjust} if
  280.  
  281. newpath 0 setgray false setoverprint pop } def
  282.  
  283. /~ { end _i restore } def
  284.  
  285. /@ {} def
  286.  
  287. /& {} def
  288.  
  289. /O { 0 ne /_of exch ddef /_lp /none ddef } def
  290.  
  291. /R { 0 ne /_os exch ddef /_lp /none ddef } def
  292.  
  293. /g { /_gf exch ddef /_fc { _lp /fill ne {
  294.  
  295. _of setoverprint _gf setgray /_lp /fill ddef } if } ddef
  296.  
  297. /_pf { _fc fill } ddef
  298.  
  299. /_psf { _fc exch pop ashow } ddef
  300.  
  301. /_lp /none ddef } def
  302.  
  303. /G { /_gs exch ddef /_sc { _lp /stroke ne {
  304.  
  305. _os setoverprint _gs setgray /_lp /stroke ddef } if } ddef
  306.  
  307. /_ps { _sc stroke } ddef
  308.  
  309. /_pss { _sc ss } ddef /_lp /none ddef } def
  310.  
  311. /k { _cf astore pop /_fc { _lp /fill ne
  312.  
  313. { _of setoverprint _cf aload pop setcmykcolor /_lp /fill ddef } if } ddef
  314.  
  315. /_pf { _fc fill } ddef
  316.  
  317. /_psf { _fc exch pop ashow } ddef
  318.  
  319. /_lp /none ddef } def
  320.  
  321. /K { _cs astore pop /_sc { _lp /stroke ne {
  322.  
  323. _os setoverprint _cs aload pop setcmykcolor /_lp /stroke ddef } if } ddef
  324.  
  325. /_ps { _sc stroke } ddef
  326.  
  327. /_pss { _sc ss } ddef
  328.  
  329. /_lp /none ddef } def
  330.  
  331. /x { /_gf exch ddef findcmykcustomcolor /_if exch ddef
  332.  
  333. /_fc { _lp /fill ne { _of setoverprint
  334.  
  335. _if _gf 1 exch sub setcustomcolor /_lp /fill ddef } if } ddef
  336.  
  337. /_pf { _fc fill } ddef
  338.  
  339. /_psf { _fc exch pop ashow } ddef /_lp /none ddef } def
  340.  
  341. /X { /_gs exch ddef findcmykcustomcolor /_is exch ddef
  342.  
  343. /_sc { _lp /stroke ne { _os setoverprint
  344.  
  345. _is _gs 1 exch sub setcustomcolor /_lp /stroke ddef } if } ddef
  346.  
  347. /_ps { _sc stroke } ddef
  348.  
  349. /_pss { _sc ss } ddef
  350.  
  351. /_lp /none ddef } def
  352.  
  353. /dp { dup null eq { pop _dp 0 ne
  354.  
  355. { 0 1 _dp 1 sub _dl mod { _da exch get 3 get } for
  356.  
  357. _dp 1 sub _dl mod 1 add packedarray 
  358.  
  359. _da 0 get aload pop 8 -1 roll 5 -1 roll pop 4 1 roll
  360.  
  361. definepattern pop } if }
  362.  
  363. { _dp 0 ne _dp _dl mod 0 eq and { null dp } if
  364.  
  365. 7 packedarray _da exch _dp _dl mod exch put
  366.  
  367. _dp _dl mod _da 0 get 4 get 2 packedarray
  368.  
  369. /_dp _dp 1 add def } ifelse } def
  370.  
  371. /E { _ed begin dup 0 get type /arraytype ne
  372.  
  373. { 0 { dup 1 add index type /arraytype eq { 1 add }
  374.  
  375. { exit } ifelse } loop array astore } if
  376.  
  377. /_dd exch def
  378.  
  379. /_ury exch def
  380.  
  381. /_urx exch def
  382.  
  383. /_lly exch def
  384.  
  385. /_llx exch def
  386.  
  387. /_n exch def
  388.  
  389. /_y 0 def
  390.  
  391. /_dl 4 def
  392.  
  393. /_dp 0 def
  394.  
  395. /_da _dl array def
  396.  
  397. 0 1 _dd length 1 sub { /_d exch _dd exch get def
  398.  
  399. 0 2 _d length 2 sub { /_x exch def
  400.  
  401.